home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / StackToolsƒ / Buttonƒ / Button F⁄X / F⁄X / F_X / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-08-10  |  3.0 KB  |  25 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>5</cardCount>
  7.     <cardID>4575</cardID>
  8.     <listID>2187</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on startUp
  17. getHomeInfo
  18. end startUp
  19.  
  20. on resume
  21. getHomeInfo
  22. end resume
  23.  
  24. on getHomeInfo
  25. global stacks,applications,documents,userName
  26. set lockScreen to true
  27. set lockMessages to true
  28. push this card
  29. go to card "User Preferences" of stack "Home"
  30. put card field "User Name" into userName
  31. set userLevel to card field "User Level"
  32. set powerKeys to the hilite of button "Power Keys"
  33. set blindTyping to the hilite of button "Blind Typing"
  34. put field "paths" of card "stacks" into stacks
  35. put field "paths" of card "applications" into applications
  36. put field "paths" of card "documents" into documents
  37. pop card
  38. set lockScreen to false
  39. set lockMessages to false
  40. end getHomeInfo
  41.  
  42. on searchScript pattern,stackName -- search all scripts of a stack
  43. set lockMessages to true
  44. if stackName is not empty then go to stack stackName
  45.  
  46. if the script of this stack contains pattern
  47. then edit script of this stack
  48.  
  49. repeat with i = 1 to the number of bkgnds
  50. go to card 1 of bkgnd i
  51. if the script of this bkgnd contains pattern
  52. then edit script of bkgnd
  53.  
  54. repeat with j = 1 to the number of bkgnd buttons
  55. if the script of bkgnd button j contains pattern
  56. then edit script of bkgnd button j
  57. end repeat
  58.  
  59. repeat with j = 1 to the number of bkgnd fields
  60. if the script of bkgnd field j contains pattern
  61. then edit script of bkgnd field j
  62. end repeat
  63.  
  64. end repeat
  65.  
  66. repeat with i = 1 to the number of cards
  67. go card i
  68. if the script of this card contains pattern
  69. then edit script of this card
  70.  
  71. repeat with j = 1 to the number of card buttons
  72. if the script of card button j contains pattern
  73. then edit script of card button j
  74. end repeat
  75.  
  76. repeat with j = 1 to the number of card fields
  77. if the script of card field j contains pattern
  78. then edit script of card field j
  79. end repeat
  80.  
  81. end repeat
  82. set lockMessages to false
  83. end searchScript
  84.  
  85. function stripSpaces itext
  86. set cursor to 4
  87. put itext into stripit
  88. put offset (space,stripit) into sp
  89. repeat until sp = 0
  90. put char 1 to sp-1 of stripit & char sp+1 to the length of stripit¬¨
  91. of stripit into stripit
  92. put sp+1 into sp
  93. put offset (space,stripit) into sp
  94. end repeat
  95. return stripit
  96. end stripSpaces
  97.  
  98.  
  99.  
  100.  
  101. </script>
  102.     <background id="2620" file="background_2620.xml" name="" />
  103.     <background id="3889" file="background_3889.xml" name="" />
  104.     <card id="4575" file="card_4575.xml" marked="false" name="" owner="3889" />
  105.     <card id="3702" file="card_3702.xml" marked="false" name="" owner="3889" />
  106.     <card id="4811" file="card_4811.xml" marked="false" name="" owner="3889" />
  107.     <card id="5588" file="card_5588.xml" marked="false" name="" owner="3889" />
  108.     <card id="3165" file="card_3165.xml" marked="false" name="" owner="2620" />
  109. </stack>
  110.